Shocking The Web CD-ROM/SHOCK_CD.ISO/mac/Chapter Tutorials/ch07.Authoring/CommandDemos/GoToNetPage.dir/00004.ls

Text File | 1996-10-22 | 580 b | 32 lines

global gNetFlag

on idle
  if gNetFlag then
    if netDone() then
      set netText to netTextResult()
      if netText <> EMPTY then
        set the text of field "results" to netText
      end if
      set gNetFlag to 0
    end if
  end if
end

on startMovie
  global gButtonFamily
  set gButtonFamily to ["result", "script"]
end

on buttonMan
  global gButtonFamily
  set cName to the name of member the memberNum of sprite the clickOn
  put cName
  repeat with i in gButtonFamily
    if i = cName then
      go(label(i))
      exit
    end if
  end repeat
  updateStage()
end